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SECREIARYIS REPORI 


Hi, 

Happy New Year- to eveiyone, I hope that we have a great yeai with our 
computer. 


I have been corresponding with a User Group in the Netheilands. They have 
4Uu prograins on sale, a lot tha^ we haven't seen! They suggest a swap ot 
our piograms with then's. Youi coiiiniittee is ail for this of course, (.saves 
us money) and I am writing to them to arrange it. The problem is, of 
course, that they already tiave a lot of the English Users Group's programs, 
and I don't know if we are going to have many programs that they will want. 
As a lot of then programs are Dutch, is there anybody out there who can 
speak Dutch and could tielp us with translating? They are sending us then- 
magazines which would be fine if we could read them. We would appreciate 
any help wc can get. 


I have also ordered a lot of new software from England, among the piograms 
IS a Jumbo Jet Flight Simulator, and a Typing Tutor- program. These should 
hopefully be here in time for' the March newsletter and will be written up 
fully then. 


Software now available includes: 


Super Agent Flint 

Galadriel in Distress all text adventure programs Si 2. 00 each 

Tlie Staff of Law 

These programs are not quite as hard as the Colour Quest ones, however. I 
have spent many hours on them and I still don't tiunk they are easy! 


AlO Bomber $14.00 

This IS a very superior 'Skramble' and I am informed by my children, who 
have been spending hours on it lately, that it is exactly the same as the 
arcade version (with mazes and meteors etc) 


Droids $14.00 

This game, one which a lot of us have been waiting for, is now available. 

It consists of 10 different mazes that you have to go through, avoiding 4 

'ghosts' tliat are chasing you ail the way. These 'gliosts' are very smart 
animals and seem to know where you are going before you do in the harder 
levels. There are also 10 levels of difficulty to choose from. I really 

recommend this game - over Christmas I played it continuously (in fact, my 

Genie nearly got thrown through the window dozens of times!) 





We would like to welcome all of the following new members: 


Auckland members 

James Innes, 7 O'Shannessey Street , Papakura 

Ian McGovern, 24B Kathleen Str eet.Glenf leld 

Andy Turner, 28 Sunray Avenue, Titirangi 

Chris Hard, 31 Marsden Avenue, Mi Eden 

Uie Bolter family, 16 West End Rd, Herne Bay 

Ted Doell,ll Sandspit Rd,Waiuku 

Phi 1 Lovegarove ,145 Carl isle Rd , Browns Bay 

A.T. Marrett, Wairoa Dam,RD3 ,Papakura 

tlie Adshead family, 19 Triniddad St , Blockhouse Bay 

the Mcdiab family, 139 Penrose Rd,Mt Wellington 

Trevor Fowler, 249 Mahia Rd, Weymouth 


countx'y meiHbers 

the Jones family, 45 Park Terrace, Blenheim 

Lower Hutt Taxation Service, Attn; G.Gi immett .Box 31 186, Lower Hutt 
Linda Couchman , Box 319 .Palmerston North 

tlie Wakefield family, 25 Sunhaven Drive.Newlands, Wellington 4. 

D . G . Bryce . 9 5 Awatapu Drive . Whakatane 

These ax'e ail members who have joined since the last list was published in 
Newsletter #10. 

SOFTWARE FIXES 

If those with Bak Pak like to send it back to me, I will send you out an 
updated copy as this program has now been fixed. 

Also. Genie Calc has now been updated by the writer, who states: - 

"These alterations include it you use the sheet calculator, you can use the 
lesuit in the sheet simply by pressing 'RETURN' by itself in the numeric 
data input. The last calculation used by the claculatoi- is inserted 
automatically on to the sheet. 

Also provided is a display of the function keys at the bottom of the sheet. 
There is also a small bug in the program, when you change text in the 
recalculate/alter mode. It changes on the sheet, but not in memory. This 
IS solved by the changing o£ line j/4D as below." 


2045 COLOURll ;PRINT(a924, "** F1=MC F2=MR FC=M- F4=M+ **'';;RETURN 
3010 C0L0UR1;PRINT@AP,"": ;VT=2;IL=7:GOSUB 40000: IF T=0 THEN T=VAL(A$J 
3015 R(I)=T;C(.I) = 1;G0SUB 3900;SC=SC+40: 1 = 1 + 1 

3740 PRINT@AS,3TRING$(9.32j: :C0L0UR8;PRINT@AS+1 :VT=5:IL=8:GOSUB40000: 
R$(X)=T$:G0SUB 3700;RETURN 

3760 G0SUB3 71 0 ; PR I NT@AS+ 1 0 , STR I NG$ ( 8 , 32 ) ; : N=C ( X ) : COLOURN ; PR I NT@AS+ 10,’”';: 
VT=2;G0SUB 40000; IF T=0 THEN T=VAL(A$J 

3770 R(X)=T;SL=AS+10;T=I;I=X;GOSUB 5510: I=T:G0SUB 3700:RETURN 

11025 COLOURli:PRINT@838,"BY E A JACKSON JAN 85";COLOURl 


- Nola Huggins 



SOPTHARE 


FIXES 


ELECTRONIC DESK 

A big thank you to Keith McGill, who after much work, found the fix for 
tliis program. Pleaae replace Line 810 witli 

810 GOSUB 1000 

815 FOR 1=1 TO TE:IF LEFT$(TE$(I) ,1)=SL$ THEN PRINT TE$(I): 

820 NEXT 


If line 810 is spread out into three lines it seems to work. 


Those people who have purdiasud ELECTRONIC DESK since 24/11 will have this 
already done. If you don't want to do tliis youi'self, please send the tape 
back and we will do it foi' you. 


ORGEL 

Those members witli this program, please send it back for updating. Uith the 
copy that you now have, hahf the sci'een is not tiierc!! 

MEMBER'S REQUESTS 


David Ryder (aiklress under new members) would like help with getting out of 
F(»?TRESS OF EVIL. Please write to him direct. 

SOFTWARE NOW AVAILABLE 

Terry's Tiavels $12.00 

This starts off being a frogger-type game, but goes into several different 
screens, including a Pacnian-type screen. Nice music. Great game. 


Exterminator- $12.00 

Death Star $12.00 

Two more arcade games fra*i Algray. 1 haven't actually tried tliese programs 
yet, but knowing Algray, they will be good. Fir-st two people that buy these 
can get tliem at $10.00 each, if tlicy will write a review on the games. 


DO YOU WANT TO SAY G0(M)BYE TO LOADING PROBLEMS? 

THEN, GIVE YOURSELF A CHRISTMAS PRESENT AND 
PURCHASE MARK LANOXIN'S 


DATA STABILISER 


ONLY $18.50 plus postage - AVAILABLE FTKM US 

BOTH HARK AND I HAVE BEEN TESTING ONE, AND I CAN 
GUARANTEE THAT THEY HC«K BEAUT • • » JUST AS GOOD 
AS THE ENGLISH ONES WHICH COST NEARLY $30.00. 

IT ORffiS COMPLETE, YOJ JIBT HOOK IT UP TO YOUR 
GENIE AND YOUR RECORDER. 

SO, COfE ON, ANYCftlE WITH LOADING PROBLEMS, GET 
ONE OF THESE, AND YOUR LOADING PRCBLEMS ARE OVER 


A MERRY XMAS AND A HAPPY NEW YEAR TO ALL OUR MEMBERS 



THE COUNT 
By Mark Morrison 

10 DEFINTA-Z;N=5I 
20 CLS; COLOUR? 

30 INPUT" DO YOU WANT A COUNT:" ;A$ 

40 COLOUR7:PRINT(a405,STRING$( 3P, 218) 

50 PRINT@525,STRING$(30,218) 

60 PRINT@444,CHR$(219) : PRINT@ 48 4 , CHR$ ( 2 19 ) : PRINT@524 , CHR$ ( 2 19 ) 

70 PRINT@475,CHR$(207) : PRINT@5 15 , CHR$ ( 2p 7 ) : PRINT@555 , CHR$ ( 20 7 ) 

80 POKE16410,71 
90 COLOUR4 

100 IFA$="Y" THEN120 

110 PRINT@0," No. Between 0-255" INPUT N 
120 POKE32767,N 
130 FORB=0 TO 7 

140 IF CHECK{B, 32767 )=-l THENI(B)=1 ELSEI(B)=0 
150 NEXT 

160 IFA$="Y'' THEN 180 

170 PRINT"THAT No. IN BINARY IS " 

180 PRINT@488, " " ; 

190 COLOURl 

200 FORB=7TO 0 STEP-1 

210 PRINTI(B) ; ;NEXT 

220 IFA$="Y" THEN N=N+ 1 : IFN= 25 6 THEN10 ELSE 120 
230 FORT=1TO1000: NEXT: CLS :GOTO40 

Type in this program and run. If you answer yes to "DO YOU WANT A - 
COUNT" The computer will count in binary from 0-255. If you answer 
no, you will be asked for a number and the computer will show a 
binary representation of it. This simple program illustrates how 
CHECK can be used. 


C fV ij 


*** HANDY HINTS *** 

1 . If you type 49152 at the MEM SIZE? prompt you will get an extra 255 
bytes free for program use without destroying the FGR page. 

2 . replace your tiresome inkey$ routines with CALL0049 .This ROM routine 
waits for you to press a key . 

3. Although INKEY$ is easy to understand it is slow and not as flexible 
as PEEKING the keyboard area. 

E.G. 10 A$=INKEY$ : IFA$="A" THEN .... 

10 A=PEEK( 16420^ :IFA=65 THEN ... 

Yes you guessed it. 65 is the ASCII (askey) code for A. 

This is faster than inkey$ and it will repeat. That is, if you hold the 
key down it will repeatedly be registered. Here is a program to print 
out the ASCII codes for the letters of the alphanumeric characters on 
the colour genie. 

10 F0RT=32T0127 

20 PRINT" ASCII CODE";T;" ";CHR$(T) 

30 NEXT T 

Adress 16444 contains data concerning the cursor keys, return spacebar 
and clear keys. Use the following format 
IF PEEK( 16444 ) AND N 
where N gas the following virtues 
N=32 left cursor 
N=64 right cursor 
N=8 up cursor 
N=16 down cursor 
N=128 space bar 
N=2 clear key 

Further example: 10 A=PEEK( 16444 ): IFA AND32 THENX=X-1 ELSEIFAAND64 x=x+l 



EDITORS NOTES 


C . (3 . POKER < CORRECT I ON > 

Stops program comming up with an error wh€?n cloubleing i.ip 
CHAN(3E;- 

2250 FOR Q=-0T07;i IFP (Q) !!<:2 >32700 THEN P ( Q ) ^^^^32000 : NEXTQ ELSE 

P (Q) =P (Q) *2: NEXTQ 


FOR EiALE 

Z E N I T H q r e e n s; c i- e e n m o ^"l i t o r ■$ 2 4 C) . 0 0 0 , N . 0 
D. PETERS WHAKATAME 


WANTED 

PAIR OF joysticks 
contact C,, BISHOP AUCKLAND 


SWAP 

ELECTRONIC DESK tor W.H.U - K. Me: (3 1 LI. 

Z El N f ( j r- W.H.U E-! . V A N Ei I T T' E R 


H renu. ncter l:)ii tfu? i::.iro(.:ir ams;; rep!"Gduced in tl'ie i ibws I. el.ter . My printer 
ml i'n:::it pi-rurL " MOB '3 El.... ” characters but p r’ i ii h :i. ns bead the a If a char" 
wj. tl'i id're saiiie i...UKs numbei-",, tici. s nor rfial 1 y only e+fects tl'ie ti ties of 
pr oo r aihs 

J MOD CEL. E) 

M MOD SEE... C 

b MODSEL X 

d = MOD SEE.. Z el:c 

OLEiers ;::an Eje torind b y wri tj. nq a smal 1 pi-'oqram l:ji..rt tE'ie ories sE'Kjwri ar' e 
tEie most cc:imi(ion 


V H D e O .O X S F=" L_ \ 


R- L_ R'k RJ Jxl X M G 


SIHEEEI'T' 


0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 IS 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 

0_ 

so ^ . 

120 

16U ________________________________________ 

200 ’ ^ ^ ^ ^ ^ ^ _ 

240 

280 _ 

320 

360 

400 ^ _ 

440 _______________________________________ _ 

480 _____________ _ 

520 

560 ________________________________________ 

600 ________________________________________ 

640 

630 _______________________________________ _ 

720 

760 ________________________________________ 

900 _______________________________________ _ 

840 ’ 

880 _______________________________________ _ 

920 


I (J CL..EfOK 
20 CLB 

: ti I M P U T ’ ’ T Li K iM C J N 'r .[ IM I E, R , f-' FE E- 8 S ■ 0 IE E 1 U R N :> TO B E (3 1 N . . ' ' ;i A $ 

A i j Lf -'R I NT CHR T ( ,l 4 ) i; TAB ( 5 ) ; " 0 1 DEO D I SPLAY PLANN I NiB SFHEET ' 
NO LPRIiTT 
6 0 1... F' IE 1 i I T E F i FE Ti ( 15) 

■"'O ITNEIMT" 

OF) FOf\ Y-=0 r092F)£iT 
90 LPRIMT" ”;:MEXT 
100 LPRINT CHRIMIS) 

I 1 0 I- PR I NT " ” 5 LPR I NT ;; LPR I NT " " 

12 (3 (BOTOOEI) 


'OR X^^::0T039i; LPR I NTUB I MS " ££” ; X ; : NEXT : LPR I NT 
:P40: LPR]:NTUBING''£££" i; Y; 3 F(DRX=0T039: LPRINT 


II M 


CHR$ (95) ; : NE 



10 

DIM MS (5) : FOR A-1 TO 5: 

READ HS (A) : 

NEXT A: REM 

** 

READ M/C SUBROUTINE ADDRESSES 


20 

DATA 28672,29254,29998,30327,30600 


30 

IMENU: 

CLS: PRINT," MASTER MENU": 

PRINT 

40 

PRINT, 

"(1) ..." 



50 

PRINT , 

“(2) ..." 



60 

PRINT, 

"(3) . . . " 



70 

PRINT, 

"(4) ..." 



80 

PRINT, 

"(5) ..." 



90 

PRINT , 

"(6) EXIT PROGRAM" 

PRINT 


100 

UU=*0: 

REPEAT; PRINT,** 

YOUR OPTION 

INPUT 

UU; 

UNTIL 

UU>0 AND UU<7 AND 

UU=INT (UU) 


110 

WHILE 

UU<6 


120 

CALL 

MS(UU) : FOR A = 1 TO 

1000: NEXT A 

: JUMPMENU 

130 

ENDWHILE: END 



Fig. 9 





cTvailable because addresses do not have to be specified in 
'integer' form, so 6 1 440 can be specified as CALL$6 1 440. 

The CALL command can be used to add new commands to 
BASIC, as in the program of Fig. 10 which adds a BEEP 
command. This routine is executed by: 

CALL 32512, duration, pitch or 
CALL $325 12, duration, pitch 

where duration and pitch must be less than 256. Examples are: 

350 DEFPROCERROR; REM ** ERROR ROUTINE 

360 ,'RINT"INPUT ERROR": CALL 32512,50,50: REM ** 

SIGNAL ERROR 
370 ENDPROC 

CANCEL 

Cancel is a general 'abort' command and is used to abandon 
various operations. 

Format: CANCEL expression 

Expression, when evaluated, must result in one of four values: 

Result of Action taken 
expression 

0 Cancel current REPEAT- UNTIL loop 

1 Cancel current PROC call 

2 . Cancel current GOSUB 

3 Cancel EXEC mode 

IF a CANCEL2 is specified, that will cancel the RETURN address, 
so that a future RETURN will produce an RG error. That is, the 
outcome of a CANCEL 2 would be as if the calling program 
GOTOed instead of GOSUBed, 

The same applies to CANCEL 1 . It will cancel the ENDPROC 
address so any future ENDPROC will produce an "ENDPROC 
'AdTHOUT PROC" error. 






ORG 

7F00H 


7F00 

CF 



RST 

8 

check for comma 

7F01 

2C 



DEFB 

1 i 

t 


7F02 

CD 

21 

7F 

CALL 

7F21H 

evaluate duration 

7F05 

43 



LD 

B,£ 

B = dura t ion 

7F06 

C5 



PUSH 

0C 


7F07 

CF 



RST 

3 

check for comma 

7F08 

2C 



DEFB 

1 1 
t 


7F0 9 

CD 

21 

7F 

CALL 

7P21H 

evaluate pitch 

7F0C 

Cl 



POP 

BC 


7F0D 

48 



LD 

C,E 

C = pitch 

7F0E 

C5 



PUSH 

BC 


7F0r 

JE 

02 


LD 

A, 2 

first half of sound 







bl ip 

7F11 

41 



LD 

B,C 

B = pitch 

7F12 

D3 

FF 


OUT 

(255) ,A 


7F14 

10 

FE 


DJNZ 

7F14H 

wait a bit 

7F16 

3E 

01 


LD 

A,1 

second half of blip 

7F18 

41 



LD 

B , C 


7F19 

D3 

FF 


OUT 

(255) , A 


7F1B 

10 

PE 


DJNZ 

7FiaH 


7F1D 

Cl 



POP 

BC 


7FIE 

10 

EE 


DJNZ 

7F0EH 

loop until dur = 0 

7F20 

C9 



BET 


return to BASIC 

7F21 

CD 

02 

2B 

CALL 

2B02H 

evaluate expression 

7F2 4 

C8 



RET 

Z 

return i f result OK 

7F25 

C3 

B2 

07 

JP 

07B2H 

overflow if result>255 

7F28 




END 



Fig. 

10 







If a program jumps out of a FfEPEAT-UNTIL loop, CAdlCELO 
will cancel the incomplete loop. CANCELS will abort EXEC mode 
(explained later). 

If expression, when evaluated, results in a value less than zero 
or greater than three, a syntax error will occor. 

EXEC 

The EXEC command is a new type of command and is used to 
execute a stnng, just as if it was a line of BASIC, 

Format: EXEC (stnng expression) 

The string is tokenised and an END command is placed on the 
end. The tokenised string is then executed by the BASIC 
interpreter. When the END command is encountered, control is 
returned to the statement following the EXEC command. Note 
that nested EXECs are not allowed. 

When EXEC is executed, EXEC mode comes into force. The 
END command exits EXEC mode. It is possible lor the string to 
contain statements which transfer control to the areas of the 
program. This is perfectly okay, but must be used with care. If this 
feature is used, then END will return control to the statement 


10 CLEAR 1000: READ NC : DIM SCS(NC): FOR A = 1 TO NC : 
READ SC$ (A) : NEXT A 

20 REM ** ARRAY SC$ CONTAINS ALL COMMANDS 

30 DATA 5, SAVE, LOAD, VERIFY, PRINT, EDIT 

40 CLS: PHINT"W0RD PROCESSOR": PR INT "COMMAND MODE": 

PRINT 

50 PRINT"COMMAND ?": CM$="": REPEAT: LINPUT" * " ; CMS : 
UNTIL CM$<>"" 

60 REM ** TEST FOR COMMAND AND EXECUTE APPROPRIATE 

PROCEDURE 

70 A=l: REPEAT 

80 WHILE CM$=SC$(A): CANCEL0: EXEC ( "PROC' + SCS (A) ) : 
GOTO 50 

90 ENDWHILE: A=A+1 : UNTIL A=6: GOTO 40 

100 REM ** PROCEDURES 
110 DEFPROCLOAD: . . . load routine 
200 DEFPROCSAVE: . . . save routine 
. . . rest o£ procedures . . . 

Fig. 1 1 

following the EXEC command. This is where CANCELS is useful. 

If, via EXEC, control is transferred to another area of the program, 
then CANCELS will cancel EXEC mode, and the END command 
will act as normal, ending the program. 

The EXEC command must be used with care. The only 
restriction is that INPUT and LINPUT cannot be used without some 
kind of error resulting, and EXEC cannot be used in FOR-NEXT 
loops. Examples of EXEC are given in Fig. 1 1 . 

The EXEC command can also be used to evaluate 
expressions, for exam.ple: 

AS="A = B*A-I-C + . 76-HNT (COS ( A ) * . 7 5 *S IN ( B ) -1- (C/A+A) ) " : 

EXEC(A$) 

The program in Fig. 1 1 shows that EXEC can be a very useful 
command. However, it also shows that care must be taken when 
i-sing procedure names and labels. It should work okay when the 
user types VEFUFY, PFUNT or EDIT. However, if either SAVE or 
LOAD is typed, the machine will respond with a syntax error in 
line 80. This is because the stnng to be executed is either 
PROCSAVE or PROCLOAD. Mote that PROC SAVE and PROC 
LOAD work. Why? -Because there is a hidden (embedded) 
command in the onqinal examples — CSAVE and CLOAD. To 
overcome this, change line 80 to: 

80 WHILE CM$=SCS(A): CANCEL0: EXEC ("PROC "+SC$(A)): 

GOTO 50 

The DEFPROCs in lines 1 10 and 200 will also have to be 
changed. 

110 DEFPROC LOAD: . . . 

200 DEFPROC SAVE: . . . 

The program should now work fully. If you are thinking "Well, he 
probably typed out the program, then typed it into his computer 
and found it didn't work. So he had to add a bit to his instructions" 
— you're right!! 

That concludes the instructions for VGBASl . 


COMPUTING TODAY APRIL 1984 
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L_E:/=^F?:M I NO TO COUNT WITH F-REODY ERrOG 


Although Freddy takes some time to get his numbers ready, 
hie’s worth waiting for. This is a we I l-devised programme for 
6-9 year-olds, and should put some joy back into mental arithmetic 

We are given the choice c<( addition, subtraction, or 
multiplication (why no division, one must wonder?^ — 
and two levels of difficulty, ’Easy' - for up to 5 year olds 
and 'Hard' - up to 10 years. As 1X1 came up in the 'hard' section 

I’m not too sure of the grading;! think a competent 10-year old 
would find little challenge, especially as no answer is greater 
than 20! 

But for J1 to S2 the programme has its uses. 

It is certainly we I I designed. The POE) graphics are impressive 
- I am persuaded to buy the PDB tape. Not only frogs and beetles 
, but also cars, tanks, funny faces, helicopters, teapots, 
ducks and houses 

From a teaching point of view, it is quite sound - positive 
reinforcement and immediate correction of errors. 

If you have a child under 10 in the house, buy this! 




, c^s 


S CDLaUR4 


10 

DEFINT A-: 

Z: CLEAR 

1 C>0 


1 1 

FRINT344, 

"MJJJJ . 

JJJJ' MJJJ' MJJJ ' JJJJJ" 

12 

PR INI -1)84, 

"J 

J J J J 

J J" 

13 

FRINT3124, 

. "dJJJ ' 

JJJJb JJJJJ 

J JJJJJ 

1 4 

PRINT3164 

- " J 

J J J 

J J" 

15 

PRINT3204 

, " JJJJb 

J J J 

dJJJb JJJJJ 

16 

PRINT32B7 

, " JJJJ ' 

MJ' MJJJ' 

JJJJJ" 

17 

PRINT.i)327 

, "J J 

MJ J ' J 

J" 

IB 

PRINT3367 

, “JJJJb 

JJJJJ J 

JJJJJ" 

19 

PR I NT.D407 

. "J d' 

J J J 

J" 

20 

25 

PRINT:i)447 
GOTO 350 

, "J J 

J J cj J J Jb 

i JJJJJ" 


30 CLS:PRINT.ai65, "TQUCH RIGHT ARROW TO STEER RIGHT" : PRINT:S205, "OR LEFT ARROW TO STEER LEFT" i) ‘J 

40 PRINTi)805, "PRESS ’RETURN' WHEN READY" 

50 A*=INKEY*:IF A# = "” THEN PRINT3612, "SPACE MINER " : PR I NT.26 1 2, " ":GOTO 50 

55 CHAR4 

hO TR=0: SC=0: SD=0: L5=133: A= 18062: B=14:C=B: D=1 :F=0: e=25: H=43: KY=- 1 984: RI =64 : LE=32 : ST= 1 8047 : PT=255 : LC= 1 05: RC=95 : CLS 

70 FOR 1=0 TO 15: PRINTSTRING* (B, "2") ; TAB<B+C)STRIN6* (40-B-C, "2" NEXT 

80 X=PEEK <KY) I IF X AND RI THEN 6=G+1:S0T0 100 

90 IF LE AND X THEN G=G-1 

100 IF RND(B)=3 THEN D=-D 

no B=B+D: IF B :3 THEN B=3:D=-D 

120 J=B+C: IF J>36 THEN E=36-C: J=B+C: D=-D 

130 POKE A,H:P0K:E A+ 1 , H: A=ST+6: PR INTSTR ING* < B . L5 ) ; 'r 

140 T=RND(7>:IF T=7 AND RND(4)=1 THEN 160 ELSE IF T=3 THEN PR INTSTRINB* ( RND < C) , 32) ; "0" j TAB ( J ) STRI NG* ! 40- I , L5 ) ; ELSE PRINTTAB <J ) STRING* (40 


-J, L5) ; 

150 GOTO 170 

160 PRINTSTRING* (RNDIC) ,32) TAB (J)STRING* (40~J, L5) ; 

170 P1=PEEK ( A) : P2=PEEK (A+1 ) : IF <P1=32) AND(P2=32) THEN 180 ELSE IF <P1=79) 0R(P2=79> THEN 220 ELSE IF (PI =L5> OR <P2=L5) THEN 200 ELBE IF , 

Pl=35) OR (P2=35) THEN 230 ELSE ISO 

ISO POKE A,LC:POKE A+ 1 , RC: F=F- 1 : IF F< 1 THEN F=40: C=C- 1 : L5=RND ( 46) + 1 92: IF C<6 THEN 260 
190 GOTO 80 

200 SC=SC+l!G=INT(C/2+B) :PRINT"YDU RAN INTO THE WARP'" 

210 FOR X5=l TO 500:NEXT X5:F0R 1=955 TO 959: PR I NTSTRING* ( B , L5) : TAB (B + C ) ST R ING* ( 40-J , L5 ) ; : NEXT : IF SC>3 THEN 340 ELSE 80 

220 IF RND(2)=1 THEN 80 ELSE SD=SD+1 : PH=515+B+C/2: FOR T = 0 TO 30: PRINT2PH, "SPACE MINE I " ; : PRINT2PH, " ";:NEXT:IF SD>5 THEN 340 EL^ 

E PRINT2920, ; ; : GOTO 80 f. 

230 PRINT2LC-40, •' YOU GOT ITI";:FOR X5=l TO 250: NEXT X5 

240 TR-TR+1:PH=515+B+C/2:F0R T=0 TO 30: PRINT2PH, "GOOD ONE.'";:FOR X5=l 10 25:NEXT X5: PR I NT 2PH, " NEXT : PRI NT2920, GOTO 80 

nSO GOTO 23u 

260 CLS:PRINI :PRINT:PRINT"GAME OVER ' " : PR INI : PRI NT : PRI N T " > OU RAN INTO THE WARP ";SC;" TIMES" 

270 PRINT:PRINT:PRINT"AND HIT ";SD;" SPACE NINES" 

280 PRINT"AND GATHERED ";TR»100;" POUNDS OF TRILLIUM'" 

282 PRINT"YDUR SCORE IS: " ; ( TR* 1 00 ) - ( SC» 1 0) - (SD* 1 0 ) 

283 PS=TR»100-SC*10-SD*10: IF PS>TS THEN TS=PS 


285 PR I NT "TOP SCORE = " ; TS 

290 PRINT"WANT TO PLAY AGAIN? (Y/N)" 

300 A*=INKEY*: IF ( A»="Y") OR (A*="N") THEN 310 ELSE 300 
310 IF A*="Y" THEN CLS: GOTO 350 
320 END 
330 END 

340 CLS: FRINT"SIMULATIDN ABORTED FOR X = 1 TO 1000:NEXT: GOTO 260 
350 PRINT(D524, "DO YOU WANT INSTRUCTIONS (Y/N)" 

360 A*=INKEY*:IF A*="" THEN 360 ELSE IF A*="N" THEN 40 

380 PRINT"YOUR MISSION IS TO FLY A TORTUOUS COURSETO GATHER A PRECIOUS METAL , TRI LL I UM (£) 
390 PRINT"AS A TRAINING PROCEDURE , YOU WILL BE ALL-OWED TO COLLIDE WITH THE SIDES OF THE 
TIMES" 

400 PRIWT/'ANY MOREL THAN JJHiS -UULL -ABORT THIS S£tlULAI-ION" - - — 

410 PRINT: PRINT"PRESS ANY KEY TO CONTINUE" 

420 A*=INKEY*:IF A*="" THEN 420 
430 CLS 

440 PRINT"PRESS ANY KEY TO BEGIN" 

450 A*= INKEY*: IF A*="" THEN 450 
460 GOTO 30 

500 REM:ADAPTED FROM A PROGRAMME BY WM. SCOTT WATSON IN "55 ADVANCED COMPUTER PROGRAMS IN 
MCGILL 



X 

.AVOIDING THE SPACE MINES (0) AS YOU DO Sfa. " 
SPACE-TIME WARP 3 TIMES, DR HIT A SPACE MINE 


( 


iw 


BASIC" (TAB BOOKS; FOR THE COLOUR GENIE, BY A.K. 



10 CLS 

11 PRINT350, '' JJJJJ J J JJJJJ" 

12 PRINTSPO, "J J J J " 

13 PRINT®130, "JJJJJ J J JJJJJ" 

■ j® 14 PRINT.3)170. "J J J J " 

15 PRINT®210,"J J JJJJJ JJJJJ" 

20 PRINT3445, "THIS PROGRAMME WILL SAVE UP TO 100 NAMES, ADDRESSES, AND TELEPHONE Nos." 

30 PRINT380B, "PRESS ANY KEY TO CONTINUE" 

40 K*=INKEY*: IF K»="" THEN 40 
. 100 CLEAR5000 

no CLS:DIM N* (80) , P$ <80) , A* (80) 

111 GOSUB 1000 

112 ON Q GOTO 120,220,240,400.500,600,700,1200,1400 
120 FOR N=1 TO 80 

130 PRINT.3160, "NAME"; : INPUT N»(N) 

140 IF N*(N)="9799" THEN P1=N:G0TD 111 
''it 150 PRINT"TEL.NO. INPUT P*(N) 

'* 160 PRINT "ADDRESS" INPUT A»(N) 

170 PRINT3160, STRING* (39, 32) 

180 PRINT3200, STRING* (39, 32) 

190 PRINTSTRING* (39, 32) 

■ 200 NEXT N 

210 CLS:PRINT"LIST COMPLETE" 

212 GOTO 111 

220 INPUT" ENTIRE FILE";S» 

230 IF S*="Y" THEN 340 ELBE 111 
240 PRINT"PICK AN INITIAL" 

250 INPUT J* 
n 260 FOR N=1 TO 80 

270 IF J*= LEFT* (N* (N) , 1 ) THEN GOSUB 300 
280 NEXT N 

290 PRINT"NAME NOT IN FILE":FOJ: V=1 TO 500:NEXT 

295 INPUT "TYPE (1) TO RETURN TO MENU, OR TYPE (2) FOR ANOTHER INITIAL";Q 

, 296 IF Q<1 OR Q>2 THEN 295 

297 CLS: ON Q GOTO 111,240 
300 PRINT"NAME- ";N*(N) 

310 PRINT"NUMBER- ";P*(N) 

320 PRINT" ADDRESS- ";A*(N) 

325 INPUT "PRESS RETURN TO CONTINUE"; X 
330 RETURN 
ml 340 FOR N=1 TO PI 

350 PRINT"NAME - ";N*(N) 

360 PRINT"TEL NO:- ";P*(N) 

370 PR I NT" ADDRESS : - ";A*(N) 

380 NEXT N 

, 385 INPUT"TD RETURN TO THE MENU, PRESS RETURN" ;X 

390 CLS: GOTO 111 

400 CLS: PRINT"ENTER THE NAME FDR THE ENTRY YOU WISH TO CHANGE" 

410 INPUT N* 

420 FOR N=1 TO PI: IF N*=N*(N) THEN 435 
425 NEXT N 

430 PRINT"NAME NOT IN FILE": GOTO 460 
^1(1 435 PRINT"ENTER THE CORRECT INFORMATION" 

440 INPUT N*(N) ,P*(N) ,A*(N) 

450 PR I NT "THE LINE NOW READS : " : PRINTN* (N) : PRINT P* ( N ) : PR I NTA* ( N) 

460 INPUT" TO RETURN TO THE MENU, PRESS RETURN" ;X 
470 CLS: GOTO 111 

500 CLS: FOR N=P1 TO 80: GOTO 130 
600 CLS: PR I NT 

610 PRINT"PLEASE F’REPARE DATA CASSETTE FOR " 

620 PRINT"RECORDING. PRESS THE FLAY AND RECORD" 


— Er-Jt.T-T-'RTI'rr'FrEfH' OF RECTJRDERTTHEFrniTT FErnJF" 

512 PR I NT "THE COMPUTER" 

65f) K»=INKEY*:IF K* = "" THEN 650 
f[\ 660 PRINT"RECDRDING NOW..." 

665 PRINT£-1,P1 










670 POR N=1 TO PI : PRINTE-1 , N» (N) , p* (N) , A» (N) : NEXT 
6B0 PR I NT "RECORDING COMPLETE-PRESS STOP BUTTON " 

690 PRINT"AND REWIND CASSETTE" : PRI NT "PRESS ANY KEY TO RETURN TO MENU" 
695 K*=INKEY*:IF K*="" THEN 695 
697 CLB:BOTO 111 
700 CLS: PRINT 

710 PRINT"PREPARE DATA CASSETTE TO REPLAY" 

720 PR I NT "PRESS ANY KEY WHEN READY" 

730 K*=INKEY*: IF K»="" THEN 730 

740 PRINT"LDADIN6 DATA INTO COMPUTER NOW..." 

745 INPUT E-l.Pl 

750 FOR N=1 TO PI : INPUTE-1 , N» (N) , P* (N) , A* (N) : NEXT 
755 PR I NT "DATA LOADED: PRESS ANY KEY TO CONTINUE" 

760 K*=INKEY*:IF K»="" THEN 760 
770 CLS: PRINT3160, "DATA LOADED" 

780 INPUT"TO SEE MENU PRESS RETURN" ;X 

790 GOTO 111 

1000 REM: MENU 

1010 PRINT3135, "» MENU »" 

1015 PRINT 

1020 PRINT" TO BUILD A FILE. TYPE 1 (ENTER 9999 WHEN COMPLETE" 

1026 PRINT 

1030 PRINT" TO DISPLAY WHOLE FILE, TYPE 2" 

1040 PRINT"^TO DISPLAY ONE INITIAL, TYPE 3" 

1050 PRINT"' TO MAKE A CORRECT I ON , TYPE 4" 

1060 PRINT" TO ADD TO THE FILE IN MEMORY, TYPE 5" 

1070 PRINT" TO SAVE A FILE ON TAPE, TYPE 6" 

1080 PRINT" TO RETRIEVE A FILE FROM TAPE, TYPE 7" 

1085 PRINT" TO QUIT, TYPE 8" 

1087 PRINT" TO SEND A FILE TO THE PRINTER, lYPE 9" 

1090 INPUT Q 

1092 IF G<1 DR Q>9 THEN PRINT" ILLEGAL CHOICE-TRY AGAIN": GOTO 1090 
1095 CLS 
1100 RETURN 
1200 END 

1300 REM: ADAPTED FROM A TRS-80 PROGRAM BY A.K. McGILL 
1400 PRINT"PREPARE THE PRINTER TO RECEIVE THE FILE" 

1410 PR I NT "PRESS ANY KEY OF THE COMPUTER WHEN READY" 

1420 K*=INKEY$:IF K»="" THEN 1420 
1430 CLS: PRINT"PRINTING NOW" 

1440 LPRINTP1:PRINT:PRINT 

1450 FOR N=1 TO P1:LPRINT N$ <N) , F* (N) , A* <N) : NEXT 
1460 PRINT"PRESS ANY KEY TO RETURN TO THE MENU" 


1470 K*=INKEY*:IF K*="" THEN 1470 


1480 CLS: GOTO 111 



I 


10 REM HAPP/ BIRTHDAV BY IRENB. !•: BARRY WALKER 

12 REM J^CHAMNEL . K=OCTIVE . L = r4a7E . MEDELA r 

14 ’ 

16 REt-1 DELAYS DEMI SEMI DL)A'v'ER'-25 ■ SEM I Oi JK, VER -‘20 OUAOER -100 

OTCHET -2017 HIMIM -4iY.i SEiMIBREVE -SOi.i 

17 REM REFERENCE FIG 9.3 PAGE 114 MASTERING THE COLOUR GENIE BY IAN SINCLAIR 

18 REN THE DELAYS ARE ALL INTEGERS AS REAL NUMBERS OF THESE VmLUES SOUND SI. ON CTPY THE DIFFERErICE BY DELETING LINE 20) 
20 DEFINT A.B,C 

ZO GOSUB 190 
40 READ J,K,L,M 

50 IF J=4 THEN SOUND 7,255 MSOTO loO 
60 PLAY (J. K, L, 15) 

70 FDR A=1 TO M:NEXTA 
30 FOR D=1 TO 50: NEXT D 
90 GOTO 40 

1 lOO DAT A 1.4,2,100,1,4,2,1 00 , 1,4,3, 200 
110 DATA 1 , 4 , 2 , 200 , 1 , 4 , 5 , 200 

120 DATA 1,4, 10, 400, 1,4,2, lOO, 1 , 4, 2, 100, 1 , 4, 3, 200, 1,4,2, 200, 1 , 4, 6, 200, 1,4,5, 40u 
1 30 DATA 1 , 4 , 2 , 1 Oi) , 1,4,2, 1 OO , 1,5,2, 200 , 1,4,7, 200 , 1,4,5, 2':)0 , 1,4,10, 24)0 , 1,4,3, 2<;<0 
140 REM LAST HAPPY BIRTHDAY TO YOU 

1 5l) data 1 , 5 , 1 , 1 OO , 1 , 5 , 1 , 1 00 , 1,4,7, 200 , 1,4,5, 200 ,1,4,6, 2oO ,1,4,5, 4 00 , 4 , 0 . 0 , O 
160 A*=INEEY$: IF A;|i=’’" GOTO 160 
170 CLS 
180 END 

190 CLS: COLOUR?: GOTO 300 
200 FOR Z=2 TO 38 
210 COLOUR 1 
220 PRINT.]) Z, "y" ; 

230 PRINT.58S0+Z , "y" ,- 
240 NEXT Z 

250 FOR Z=42 T0334 STEP 40 
260 FRINT.SZ , "y" ; 

270 PRINT.DZ + 36, "y"; 

280 NEXT Z 
290 RETURN 
300 PRINT.285, " 
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PRINT.i)405, " 




JJJ ' 

J 

JJ ' 

MJJ 

J J 

J b 

J 

J J 

J J 

J J 

JJJ 

J 

J J 

JJJ 

JJJJ 

J 

J 

J J 

J J 

TU 

JJJb 

J 

JJb 

J J 

TU 


:20 GOTO 200 


10 REM TRS-80 SOUND ROUTINE 
20 REM WILL WORK WITH OLD ROMS 

30 REM V-LISR(X) 

31 REM CASSETTE OUTPUT INTO AUX 

32 REM INPUT OF CASSETTE PLAYER 

33 REN BY ROBERT MILLAR 

40 CLEAR 5000; 2Z$=STRIMG$ (29, O) 

50 Z Z =:y ARPTR ( Z Z ) ! Z 1 =PEEK ( Z Z + 1 ) 

SO Z2:=^PEEK (ZZ+2) ; IF Z2>127THEN Z2=Z2-25S 

70 Z3=Z2^256 + Z 1 : F0RZ2==Z3T0Z3+28: READ24: NEXT 

SO IF201=PEEK ( 16396) P0KE16526, Z1 : P0KE16527, Z2EL.SECMD‘’T" 

90 DEFUSR0==Z3; POKE 14308, 0 

1 OO DAT A205 ,127,10,62,1,14, 0 , 237 ,91,61 

1 1 0 DATAS4 ,69,47, 230 ,3,179,211, 255 , 1 3 

120 DATA40, 4, 16, 246,24, 242,37,32,241, 201 


